Aminet 35/Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso/Aminet/dev/gui/gui4cli.lha/Gui4Cli/Ext/Exmpl_src/3_LVIndent/LVIndent.c

C/C++ Source or Header | 1999-06-16 | 5.3 KB | 190 lines

/****************************************************************
**
**    LVIndent.c - 6/9/98 - [e-mail]
**
**    This program will get a lock on Gui4Cli and then
**    indent the current listview by inserting 3 spaces at the
**    start of each line.
**
******************************************************************/
// define this for faster exec calls
#define __USESYSBASE
// some of these may not be needed..
#include <exec/exec.h>
#include <exec/execbase.h>
#include <exec/memory.h>
#include <dos/dosextens.h>
#include <dos/rdargs.h>
#include <dos/dostags.h>
#include <string.h>
#include <stdio.h>
#include <ctype.h>
#include <dos.h>
#include <proto/dos.h>
#include <proto/exec.h>
#include <graphics/text.h>

// Gui4Cli.h include file (assuming it's in the include: dir)
#include <Gui4Cli.h>

// prototypes
int sendmsg(UBYTE * , struct g4cmsg * , struct ExecBase * , struct DosLibrary * );
int indentlist(struct GCmain * , UBYTE * , struct ExecBase * , struct DosLibrary * );

// ==============================================================
// This is the function where execution starts.
// Lock Gui4Cli, get the *GCmain pointer and call the function
// which will indent the current listview (end of the file)
// ==============================================================

int anyname (void)
{
    // these are the libraries we need
    struct ExecBase *SysBase = (*((struct ExecBase **) 4));
    struct DosLibrary *DOSBase=NULL;
    // this is us..
    struct Process *myself = (struct Process *)(SysBase->ThisTask);

    struct MsgPort *myport;
    struct g4cmsg  msg;    // the message we'll use
    struct GCmain  *gc;    // Gui4Cli's main structure
    UBYTE  command[100];    // a temporary buffer
    LONG   ret = 10;    // our return code

    // open the dos library or die..
    if (!(DOSBase = (struct DosLibrary *)OpenLibrary("dos.library", 36L)))
    {   myself->pr_Result2 = ERROR_INVALID_RESIDENT_LIBRARY;
        goto endprog;
    }

    // this is our proccess's message port
    myport = &myself->pr_MsgPort;

    // clear & set up the message structure
    memset ((char *)&msg, 0, sizeof(msg));
    msg.node.mn_ReplyPort = myport;
    msg.node.mn_Length = sizeof(struct g4cmsg);
    msg.magic = 392001; // so that g4c recognises us

    // make it a lock message
    msg.type = GM_LOCK;

    // send the message - a return of 0 means ok
    // otherwise there was a failure and we exit indicating error
    if (ret = sendmsg ("Gui4Cli", &msg, SysBase, DOSBase))
        goto endprog;

    // The pointer to Gui4Cli's main structure, is in msg.gcmain
    gc = msg.gcmain;

    // make sure that it's valid..
    if (gc && (gc->magic == MM_G4C))
    {
         if (indentlist (gc, "   ", SysBase, DOSBase)) ret = 0;
    }

    // *must* unlock Gui4Cli after we're through using it..
    msg.type = GM_UNLOCK;
    sendmsg ("Gui4Cli", &msg, SysBase, DOSBase);

    // now send a command to nudge the lv into redrawing itself
    msg.type = GM_COMMAND;
    strcpy (command, "LVMove 0");
    msg.com = command;
    sendmsg ("Gui4Cli", &msg, SysBase, DOSBase);

    // that's all..
    endprog:

    if (DOSBase) CloseLibrary((struct Library *)DOSBase);
    return (ret);
}


// ==============================================================
// Send a message, wait for reply..
// -->> return 0 for OK or error code otherwise
// - portname = the name of Gui4Cli message port (usually Gui4Cli)
// - msg = the message we received
// note : we pass sysbase & dosbase as arguments, because we
//        will be using functions in those libararies..
// ==============================================================

sendmsg (UBYTE *portname, struct g4cmsg *msg,
     struct ExecBase *SysBase, struct DosLibrary *DOSBase)
{
    struct MsgPort *gcport, *myport;

    // get a pointer to our message port (for code clarity)
    myport = msg->node.mn_ReplyPort;

    Forbid();
    if (gcport = FindPort(portname))
    {
       PutMsg (gcport, &msg->node);
       Permit();
       // wait for reply..
       WaitPort (myport);
       msg = (struct g4cmsg *)GetMsg (myport);
       // return Gui4Cli's return code (probably 0 meaning OK)
       return (msg->res);
    }
    Permit();
    PutStr ("Could not find port!\n");
    return (10);
}


// ==============================================================
// Indent the listview - return success
// go through all records, delete old, replace with new..
// gcm   = the main Gui4Cli structure
// instr = the string to indent it with
// ==============================================================

indentlist (struct GCmain *gcm, UBYTE *instr,
        struct ExecBase *SysBase, struct DosLibrary *DOSBase)
{
    LONG   inlen, totlen;
    struct fulist *fls;
    struct lister *fl, *nextfl;
    UBYTE  *buff;

    inlen = strlen(instr);

    // get pointer to current listview, checking it..
    if (!(fls = gcm->curlv) || !fls->ls) return (0);

    // do the whole list..
    fl = (struct lister *)(fls->ls->lh_Head);
    while (nextfl = (struct lister *)(fl->node.ln_Succ))
    {
       // get the buffer we need.. (NOTE totlen + 1 - always!)
       totlen = inlen + fl->length;
       if (!(buff = (UBYTE *)AllocMem(totlen + 1, MEMF_CLEAR)))
       {   PutStr ("No memory!\n");
           return (0);
       }

       // construct the line..
       strcpy (buff, instr);
       strcat (buff, fl->start);
       // replace old line
       FreeMem (fl->start, fl->length + 1); // note +1
       fl->start  = buff;
       fl->length = totlen;

        // adjust the max line length counter (just do it..)
        if (fls->maxlength < fl->length) fls->maxlength = fl->length;

       // do next line..
       fl = nextfl;
    }

    return (1); // ok..
}